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Programmet kan føre din 
kassebog - og det holder 
også regnskab med momsen 


Der findes naturligvis allere¬ 
de færdigudviklede økono¬ 
miprogrammer, men interes¬ 
sen for denne type arbejds¬ 
redskaber til VIC-20 er stor - 
og her er derfor et program, 
som kan føre en kassebog, et 
momsregnskab og fordele 
posterne på tre forskellige 
produkter - og på ti forskelli¬ 
ge posteringstyper (tre slags 
indtægter og syv slags udgif¬ 
ter). Hvis brugeren har et an¬ 
det behov, må man dykke 
ned i programmet og ændre 
det på passende steder. 

En kassebog eller et moms¬ 
regnskab, der ikke kan kom¬ 
me ned på papir, har man ik¬ 
ke så megen glæde af, og 
programmet er derfor skre¬ 
vet, så det forudsætter en 
printer - men det fordrer ikke 
nogen diskettestation. 


En disketteversion vil natur¬ 
ligvis arbejde hurtigere, men 
mon ikke brugere med et be¬ 
grænset bogføringsbehov 
kan leve med at skulle hente 
program og data fra kassette¬ 
bånd. Altså, nødvendigt 
hardware: VIC-20 med en 
kraftig RAM-udvidelse, 
båndstation, printer. 

Hvis man ikke orker at taste 
programmet ind, sender vi 
gerne en kopi på kassette¬ 
bånd til de sædvanlige 20 kr. - 
som til gengæld må vedlæg¬ 
ges bestillingen i check eller 
frimærker. 

Instruktioner 
på skærm 

Herefter skulle der egentlig 
ikke være flere problemer. 
Efter at have fortalt compu¬ 


teren, hvilken dato, man be¬ 
finder sig på, opstilles en me¬ 
nu med syv forskellige mulig¬ 
heder, nemlig: 

A INPUT 
B SØGE 

C DATA FRA TAPE 
D DATA TIL TAPE 
E SKRIVE KASSEBOG 
F MOMSREGNSKAB 
G RESULTAT¬ 
BEREGNING 

Hver for sig fører disse hen til 
en række operationer, som 
ikke skulle give nogen van¬ 
skeligheder. Måske bør det 
nævnes her, at man i SØGE- 
funktionen kan skrive enten 
et bilagsnummer, hvorefter 
indholdet af det pågældende 
nummer dukker op på skær¬ 
men. Ønsker man ikke at se et 
bestemt nummer, kan man 
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blot trykke RETURN, hvor¬ 
efter computeren spørger ef¬ 
ter en bestemt tekst - og her 
kan man skrive så få eller 
mange bogstaver, man me¬ 
ner er nødvendigt at bruge 
for at finde den relevante 
post. 

Skriver man blot et enkelt 
bogstav og trykker RE¬ 
TURN, vil man få alle de bi- 
Fortsættes side 2 
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lag frem, der har en tekst, der 
begynder med det indskrevne 
bogstav. Man kommer vide¬ 
re ved at trykke på en hvilken 
som helst tast - og trykker 
man på pil-til-venstre tasten, 
vender man straks tilbage til 
menuen. 

Med og uden moms 

Indtastningerne foretages 
med beløb inkl. moms, hvor¬ 
efter der gøres rede for, om 
der er moms i beløbet eller ej. 
Når kassebogen skrives ud, 
er der ligeledes tale om brut- 
tobeløb, men når man (under 
funktion G) får udskrevet be¬ 
regninger af resultatet, arbej¬ 
des der med nettobeløb, altså 
uden moms. 

MID$ 

Kunsten med at få skilt alle 
disse data fra hinanden udfø¬ 
res med MID$ og LEFT$. Se i 
brugervejledningen side 131 
og 132. 

Kort fortalt virker disse 


funktioner sådan, at man 
kan dele strenge. En streng i 
vort system kan f.eks. se såle¬ 
des ud: 

”21 /05ABJTEKST TIL 
POSTEN” 

Strengens navn kan f.eks. 
være PO$(21), og hvis man 
skal have fat i oplysning om, 
hvilket produkt, den vedrø¬ 
rer, hedder instruktionen 
MID$(PO$(21),7,l), som vil 
give os tegnet B. Skiftes 7-tal- 
let ud med 8, får vi i stedet et 
”J”, som er en oplysning 
om, at posten indeholder 
moms. 

Sådan bruges 
programmet 

Når REGNSKAB skal tages i 
brug, må man allerførst over¬ 
veje sit eget behov. Program¬ 
met er fra "fødslen” indret¬ 
tet til at arbejde med tre ka¬ 
tegorier af indtægter og syv 
forskellige muligheder for at 
postere udgifter. Der er gjort 


plads til tre forskellige aktivi¬ 
teter eller produkter. Kan 
man uden videre bruge denne 
konstruktion, må man blot 
dykke ned i datasætningerne 
i Unie 100 til 200 og dér skrive 
sine egne betegnelser. Har 
man brug for færre mulighe¬ 
der, kan man lade resten stå 
hen - men skal systemet udvi¬ 
des på den ene eller anden led, 
må man gå i gang med pro¬ 
grammeringen. 


Strenge 

Princippet i programmet er, 
at oplysningerne gemmes i to 
tabeller - én med beløbene for 
de enkelte posteringer og én 
med streng-variabler, der 
indeholder oplysninger om 
dato for bogføringen, om 
hvilket produkt, posten ved¬ 
rører, om hvilken udgift eller 
indtægt det er, om beløbet 
indeholder moms, der er fra¬ 
dragsberettiget - og endelig 


en tekst til det enkelte bilag. 
Lad os se lidt nærmere på 
strengene. Hver streng, der 
har navnet PO$(X), hvor X 
er streng-variablens num¬ 
mer. I programmet er der 
gjort plads til 500 poster. 

De første fem karakterer i 
hver streng betegner datoen, 
og derfor er det vigtigt, at der 
altid benyttes fem tegn, når 
datoen sksil indtastes, f.eks. 
”21/05” for den 21. maj - 
men der er lagt en lille kontrol 
ind, så datoen virkelig får si¬ 
ne fem cifre. 

Næste karakter, den sjette, 
betegner hvilken udgift eller 
indtægt, der er tale om, mens 
den syvende karakter er en 
kode for hvilket produkt, der 
er tale om. Herefter følger en 
karakter (nummer otte), der 
fortæller, om der er moms i 
beløbet, og de resterende 
pladser er så den tekst, der be¬ 
tegner posteringen i regnska¬ 
bet. 


SUK 


... mon man kunne lokke jer 
til at viderebringe følgende 
hjertesuk i næste nummer af 
bladet? 


Nyhed for VIC-20 


Motherboard mode) 2 
8K RAM 

2 stik til standard moduler. 

Omskifter til blokadressering. Kr. 685,00 

Motherboard model 3 

Samme som model 2, men med 3 stik. Kr. 985,00 

24 K RAM udvidelse 

Modul med plads til 24 K samt en sokkel 
til 1 stk. Eprom 2732 

leveres med 4 K monteret. Kr. 485,00 

Løse 2 K RAM pr. stk. Kr. 75,00 

Bøger 

50 spil for VIC-20 

»Symphony for a melancholy«. Kr. 145,00 

30 spil for VIC-20 

»ZAP POW BOOM«. Kr. 165,00 


GRATIS: Meld dig ind i Betafon 
VIC-20 og Commodore 64 
informationstjeneste 
og modtag nyheder løbende, når der 
kommer noget. 

BEIAFON (Lordag lukket) 

ISTEDGADE 79 -1650 KØBENHAVN V - TLF. 01 - 3102 73 


Er der ikke nogen, VIC-ejere 
eller forhandlere, som kunne 
tænke sig at oprette en form 
for »printerservice« for fat¬ 
tiglus, så man kunne få lavet 
en liste af sine møjsommeligt 
indtastede programmer - der 
er ikke noget så ærgerligt, 
som at få loadet Kaj og An¬ 
drea ind til en »load error« og 
derefter opdage, at der er sa¬ 
lat i reservetapen og leverpo¬ 


stej på den vigtigste linie i 
håndlisten (som for øvrigt er 
ulæselig og ikke rettet efter 
diverse syntax error’er). 

Hjertesukket kommer fra 
Bent R. Husted, og vi bringer 
det gerne videre. Måske var 
der også VIC-folk, der kunne 
hjælpe hinanden med at 
transformere VlC-program- 
mer til Commodore 64.. ? 
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VI & VIG 


VI & VIC’s regnskabsprogram 
kan du også få på kassettebånd 


0 81*36676 : S2-36873 

1 S3-36874J VO-36879 : ST*« " **************** " : US*« -- : N«3øø 

2 PRINT" 3*HVILKEN DATO ER DET I DflO" : OOSUB10 : INPUTDD* 

4 IN*-"INDTAGTER I ALT" : UD*«"UDGIFTER I ALT" 

5 DEFFNBE<X>-<ASC«MID*CPO*<X>,6)>>~64 

6 DEFFNPR<X>»<ASC<MID*<PO*<X>,7> > >-64 

7 DEFFNA<X>«INT<XX1. 22*100+. 3V100 : DEFFNB<X>«X-FNA<X> 

8 DEFFNC< X > «INT CX*.22*1øø+.3 > X1øø = DEFFND<X>-X+FNC<X> :FORT«1TO13 : CL*«CL*+" 

»:NEXT 

9 DIMR<10.,3>,P0<N>,P0*<N> :GQT01000 

10 POKEVO , 5: PQKES1,222 '• FORD-1T060 : NEXT : POKES 1,0: RETURN 

11 POKEVO ,13: P0KES3,211= FORT« 1T099: NEXT: P0KES3,0: FORT« 1 TO 111: NEXT : P0KES3, 144 '• FOR 
T-1T099:NEXT:P0KES3,0:RETURN 

12 0ET8*:IFS*«""THEN12 

13 RETURN 

15 PRINT"* *** RIOTIOT ? ***H" '■ GOSUElø = G0SUB12: PRINT" ":RE 

TURN 

18 PRINT"* *** MERE NU ? ***n" : GOSUBJØ '■ 00SUB12 : PRINT" " ; RE 

TURN 

20 P0KE251,PEEK < 33 >:P0KE252,PEEK< 36 >:P0KE33,PEEK< 31>:P0KE36,PEEK< 32 >:X-FRE < 8 >:RE 

TURN 

21 P0KE55,PEEK < 251>:P0KE36,PEEK < 232 >:RETURN 

24 PRINT" ** PRINTER KLAR 7 **3" :GOSUBlø:OOSUB12:PRINT" »tøø 

SUB10:RETURN 
30 REM** KONTROL *** 

35 PRINT"3MBILAG NR.S"BI+V = PRINT"*MDATO:B "■PRINTLEFT*(PO*<V>,3> : PRINT"M8WEDRØRE 
NDEM" 

36 RESTORE '• FORT-1TOASC < MID* < PO* < V >,6 > >-64: READA* = NEXT: PR INTA* 

37 RESTORE:FORT-1TO10:READA*:NEXT = FORT-1TOASC C MID* < PO* < V >,7 > >-64:READA*:NEXT:PRI 
NTA* 

55 PRINT"*MTEKST : ■ " : PRINTMID*CPO*<V>, 9) '• PRINT"»MBELøB : ■ "PO<V>"KR." 

56 IFMID*<PO*<V>,8,1>-"J"THENPRINT"JHETTO "FNA<PO<V>>=PRINT"MOMS "FNB<PO<V> 

> 

59 RETURN 

80 PRINT"3R* *** PAPIR OK? ***":OOSUB10 : G0SUB12 : LI*0 : G0SUB81 : RETURN 

81 PRINT"3**KKW"ST*:PRINT"W VENT*" •PRINTST*:RETURN 

85 PRINT#4,CHR*<14>CHR*<16>"66SIDE"SI 

87 PRINT#4>CHR*<15>"DATO NUMMER TEKST"CHR* <14 > CHR* C16 >"52UD IND SALDO" 
gø PRINT#4;CHR$<13) : RETURN 

90 F0RT-1T03=PRINT#4,CHR*O0>:NEXT:PRINT44,"MED VENLIG HILSEN"CHR*<lø> 

91 PR I NT#4, CHR* <10 > " STEEN VENBJERG":RETURN 

95 PRINT#4,"BETALINGSBETINGELSER: 30 DAGE FRA FAKTURADATO.":RETURN 
100 DATAINDTAGT 1,INDTAGT 2,INDTAGT 3 

110 DATAUDGIFT 1,UDGIFT 2,UDGIFT 3,UDGIFT 4,UDGIFT 3, UDGIFT 6,UDGIFT 7 
200 DATAPRODUKT 1,PRODUKT 2,PRODUKT 3 

701 PR-1NT < PR*100+.3 > X100:PR*«STR* < PR >:IFPRC1ANDPR>ØTHENPR*»" 0 "+MID* < PR*,2 > : GOTO 
704 

702 IFPR-1NT < PR >-ØTHENPR*-PR*+"." 

703 IFPR<ØANDPR>-1THENPR*- " -ø " +MID* < PR*,_2 > 

704 IFA8C C RIGHT* < PR*,3 >)<>46THENPR*«PR*+"ø" ; G0T0704 
015 HL*-LEFT* < TR*+CL*,LL-LEN <PR* > >+PR*:RETURN 

1000 REM***8TART PROGRAM*** 

1010 PRINT"3W"ST*:PRINTTABC7)"IREGNSKABM" : PRINTST* 

1020 PRINT"* A INPUT":PRINT"* B SØGE":PRINT"* C DATA FRA TAPE" 

1030 PRINT"* D DATA TIL TAPE" :PRINT"* E SKRIVE KASSEBOG" 

1040 PRINT"* F MOMSREGNSKAB":PRINT"* G RESULTAT" 

1100 G08UB10 : OOSUB12=1FS*<"A"ORS*>"G"THENGOSUB11:GOTO1100 
1110 S-ASC< S* >-64:ONSGOTO1200,2000,3000,1600,4000,5000,6000 
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1200 Reno««INPUT««* 

1220 PRINT"XTAB<8>"INPUT":PRINTUSf:IFBI-øTHENGOSUBlø:INPUT"SIDSTE BILflO NR.";BI 

1223 IFMAf-""THENINPUT"HHVILKET AAR";MAf 

1224 IFGS-ØTHENINPUT"WGAMMEL SALDO";GS 

1225 FORV-1 TON = I FPQf < V X> " " THEN 1390 

1232 PRINT"I3IBILAO NR.■"BI+V:PRINT 

1233 INPUT"DATO";If<l) 

1234 I FLEN C If < 1) )O3THENG0SUBl 1 : PRINT"W5 CIFRE - TAK !W" : GOTO 1233 

1240 INPUT"WWTEKSTIf <5>:PRINT".TWBESKRIV POSTEN" : PRINT"*091NDTAEGTER: W" 

_1241_ RESTOREj FORT-1T03 : READAf:PRINT " "CHRf < T+64 >" "Af : NEXT : PRINT" 1UDQIFTER : W" 

1242 F0RT-4T010:READAf:PRINT" "'CHRfCT+64>" "Af'-NEXT 
1245 OOSUB12:IFSf<"A"ORSf>"J"THENOOSUB11:GOTO1245 
1250 RESTORE : FORT-1TOASC < Sf >-64:RERDAf:NEXT:PRINT" 0*01"Af =If < 2 >-Sf 
1300 RESTORE: FORT-1 TO 10 : READAf '■ NEXT 

1341 PRIKTHFRODU^W" : FORT« 1T03 -READAf-PRINT" "CHRf<T+64>" "Af : NEXT 
1345 00SUB12 : IFSf<"A"ORSf>"C"THENOOSUB11 : 00T01343 

1350 RESTORE:FORT—9T0ASC < Sf>-64:READAf = NEXT:PRINT"*"If<5^ : PRINT"WWW"Af i CLf : If<3. 

)«Sf 

1360 OOSUB10:INPUT"WBELØB";PO<V> 

1370 I FLEFTf < I f < 3 ), 4 > - " MOMS " THENFORT-1 TO 1 ø '■ OOSUB 10 = NEXT: PR I NT " MOMSBETAL I NO? " : OOS 
UB12:IFSf-"J"THENSf-"X" 

1371 IFSf-"X"THEN141ø 

1401 OOSUB 10 : PRINT" MOMS-EFFEKT? " : OOSUB 12 : IFSfO"J" ANDSfO " N " THENPRI NT " SKRIV J EL 
LER N" : 00SUB11 : 00T01401 

1410 If<4)-Sf:POf<V>-"" : FORT—1TOS : POf<V>—PQf<V)+If<T) : NEXT 
1420 00SUB30:OOSUB13=1FSfOCHRf <13 >THEN1232 
1380 M-V: OOSUB 18=1 FSf OCHRf < 13 ) THEN 1 øøø 
1590 NEXT 

1391 OOSUB11:PRINT"IKKE MERE PLADS" : 00SUB16 : GOTOløøØ 

1600 REM *#* DATA TIL TAPE 

1601 PRINT"X:0PEN1.1,1:C0SUB81 

1610 PRINT#1, M : PR I NT# 1, BI '• PRINT# 1, GS : PRINT#1, MI ; PRINT# 1, MQ : PRINT# 1, MAf 
1620 F0RT-1T0M : PRINT#1,POf<T) : PRINT#1,PQ(T) 

1630 NEXT : CLOSE1:PRINT"XSISKAL DATA TJEKKES?"=GOSUBlø:OOSUB12:IFSf-"N"THEN1000 

1640 00T09000 

2000 REM**OENNEMSE*** 

2ølø X«ø:INPUT'THET BESTEMT NUMMER";X:IFX-ØTHEN2020 
2015 V-X-BI:IFV<10RV>MTHENG0SUB11:G0T02010 

2019 00SUB30 : OOSUB 12 '• GOTO 1000 

2020 Xf-"":INPUT"EN BESTEMT TEKST";Xf 

2100 FORV-1 TOM : IFPOf <V>—" "ORXfOMIDf <POf < V) , 9, LEN < Xf ) > THEN2190 
2110 G0SUB30 : OOSUB 12' IFSf «"+"THEN'v'®M 
2190 NEXT:GOTO1000 

3000 REM *** DATA FRA TAPE 

3001 00SUB10:PRINT'LT':OPEN1,1,0:GOSUBSI 

3010 INPUT#1,M: INPUT#1,BI : I NPUT# 1, GS '• INPUT#1,MI : I NPUT # 1, MO : I NPUT # 1, MAf 

3013 FORV-lTON:POfm»"" : POCVJ-ø = NEXT 

3020 FORT-1TOM:INPUT#1,POf<T) : INPUT#1,PO C T> 

3030 NEXT:CLOSE1=GOTO1øøø 
4000 REM***SKRIVE KASSEBOG*** 

4010 00SUB10: PRINT"X • G0SUB24 : GOSUBSø '■ 0PEN4, 4 : GOSUBSI : UD-0 : IN-ø : SI-1 

4020 PRINT#4,CHRf<14>"BEVrtOELSER I "MAf:PRINT#4,CHRf<15)"UDSKREVET "DDf : PRINT#4: 

00SUB85 

4035 SA-GS ; TRf-" OVERFØRT":PR-OS■LL-80:G0SUB701 : PRINT#4,HLf 

4036 G0SUB20 

4050 FORV-1TON : IFPOf<V>*""THENV-N:G0T04090 
4055 LL-36:IFMIDf < POf < V >,6,1> <"D"THENLL-66 

4060 TRf-LEFTf<POf<V),3)+STRf<V+BI> + " "+MIDfCPOf<V>,9>•PR-PO<V>:00SUB701:PR- 

0 : TRf-HLf 

4070 IFLL-56THENSA-SA-P0<V): IJD«UD+P0<V>:G0T04030 
4075 SA-SA+PO<V>:IN-IN+PO<V) 

4080 LL-80 : TRf-HLf : PR-SA : G0SUB701 : PR INT#4, HLf : LI-LI •+■ 1 : IFLI-53THENSI-SI + 1 : G0SUB80 
: 00SUB85 

4090 NEXT ; PRINT#4 : 

4091 TRf-"I ALT":PR-UD:LL-36 = G0SUB701:TRf-HLf:LL-66:PR-1N = G0SUB701:TRf-HLf■LL-80 
:PR—SA 

4092 00SUB701:PRINT#4,HLf 
4099 CL0SE4:GOTO1000 

3000 REM***SKRIVE MOMSREGNSKAB*** 

3003 PRINT"X:00SUB24: 

3010 IF02-ØTHENINPUT"GL. SUM - UD";02 
5011 IFO1-ØTHENINPUT"GL. SUM - IND";01 
3012 MI-GI: M0-G2 : 0PEN4,4 : H-0 
3015 PRINT"HVILKET KVARTAL?" 
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5016 OOSUB12:SM«3*VAL < S* V- FM-SM-2 :IFS*<"1"ORS*>"4"THENGOSUB11:00T05016 

5020 PR I NT#4, CHR* 04)" MOMSREGNSKAB I "MA*CHR*a3> ", "SMX3". KVARTAL"CHR*< 15 > 

5021 PRINT#4,"UDSKREVET "DD*:SI-1 
5030 G0SUB85 

5033 SR-MI-MO : 0GSUB20 

5035 TR*»" OVERFØRT"=PR-MO:LL-36•G0SUB701 

5036 TR#-HL#: PR-MI : LL-66 '• G0SUB701: TR#-HL* • PR-SA: LL-80 ■ G0SUB701 : PRINT#4, HL* 

5040 FORV-1TON=IFPO#CV>»""THENV»H:G0T05030 

5050 MN-VAL<MID*<PO*<V>/4,£>> : IFMN<FM0RMN>SMTHEN5090 

5051 X-.1803:LL-66 = IFMID*<PØ*<V>,8,1>-"N"THEN3ø90 

5052 IFMID*<P0*<V>..8, 1>-"X"THENX-l 

5055 IFMID* < PO* < V >, 6, 1> >"C" THENLL-56 SA-SB-PO < V ) #X ■ MO-MO+PO < V > *X = G0T05060 

5056 SA-SA+PO < V > *X:MI»MI+PO < V > *X 

5060 TR*»LEFT*<PO*(V>,5>+" "+STR*<BI+V>+" "+MIB*<PO*<V>,9> : PR=PO<V:>#X 

5070 G0SUB701: TR*-HL# = PR-SA = LL-80 = GOSUB701 '• PRINT#4, HL# 

5080 LI-LI+1 ; 1FLI-55THENSI-SI+1 : G0SUB80 

5080 NEXT 

5081 TR*»"I ALT"=PR-MO:LL-36 = G0SUB701:TR*=HL*■LL-66■PR-MI:G0SUB701■TR*=HL*:LL-00 
:PR-SA 

5082 GOSUB701: PR I NT#4, CHR* <10 ) HL# 

5088 G0SUB21:CL0SE4:GOTO1000 
6080 REM#*#BEREGNING AF RES.«** 

6010 G0SUB81:F0RB-lT010:F0RP»lT03:R<B,P>-ø'NEXTP,B 
6020 FORV-1TOM 

6030 IFMID*<P0*<:V>,8,1>-"X"THEN6090 

6040 IFMID* < PO* < V >,8,1>-"J"THENPL-FNA<PO<V>> : G0T06080 

6050 PL-PO<V> 

6080 RCFNBECV),FNPR<V>)-R<FNBE<V),FNPRW)+PL 

6090 NEXT 

7000 REM###UDSKRIVNINO AF RES.*#*# 

7001 F0RT-1T03 : I<T>-0 ; NEXT : F0RB-1T03 : F0RP-1T03 : I<P>-I<P>+R<B.> P) : NEXTP;B 

7002 FORT-1T03:U < T)-0:NEXT:F0RB-4T010•FORP-1T03 = U < P>-U < P > +R < B,P)=NEXTP,B 
7010 G0SUB80 ; OPEN4.I 4 : RESTORE 

7020 FORT-1T010 ; READA# : NEXT : G0SUB20 

7030 PRINT#4,CHR#<14)"RESULTAT I "MA#CHR#aø>CHR#«15> 

7033 PRINT#4,"BEREGNET "DD*CHR#<lø) 

7040 LL-32: TR#-" " : PR#-" " : F0RT-1T03 '■ LL-LL+12 = TR#-HL# = READPR# : G0SUB815 = NEXT: TR#-HL 

* 

7050 PR#-"I ALT"= LL-LL+12 = G0SUB815 = PRINT#4,HL#CHR#<1ø> =RESTORE 
7090 PR I NT#4, CHR# U 4 > " I NDTftQTER " CHR# < 10 ) CHR# < 15 ) 

8000 FORBE-1T010 : READHL# 

8010 Z-0: LL-32 = PR*- " " '■ FORT-1T03: LL-LL+12 ; TR#-HL* : PR-R < BE, T > = Z-Z+PR : G0SUB701 • NEXT 

8011 TR#-HL#:LL-LL+12:PR-Z•G0SUB701=PRINT#4,HL# 

8020 IFBE-3THENZ-0 = LL-32 : HL#-IN# : FORT-1T03 : LL-LL+12 '■ TR#-HL* : PR-I <T> : Z-Z+PR : OOSUB 
7øl:NEXT 

8030 IFBE-3THENTR#-HL# = PR-Z = LL-LL+12 = G0SUB701:PRINT#4,CHR*<lø)HL*CHR*<10>CHR*<1ø 

> 

8035 IFBE-3THENPRINT#4,CHR* <14 >"UDOIFTER"CHR* <1ø >CHR* <13 > 

8090 NEXT 

8100 z-0:PRINT#4:LL-32 = HL*-UD*:FORT«1T03 = LL-LL+1£:TR*-HL*:PR«U(T> : Z-Z+PR:G0SUB78 
1:NEXT 

8110 LL-LL+12 :TR#-HL*: PR-Z : G0SUB701 : PRINT#4 J HL*CHR*aø> 

8120 Z-0:LL-32:HL*-"RESULTAT":FORT-1T03 = LL-LL+12 = TR#-HL*:PR«I< T >-U < T >:Z-Z+PR = GOS 
UB701:NEXT 

8130 LL-LL+12:TR*-HL*:PR-Z:GOSUB7øl:PRINT#4,HL*CHR*<10> 

8150 00SUB21:CL0SE4:GOTO1000 

8999 WAIT633,1:LIST6001-8898 

9000 REM ### TEST AF DATA FRA TAPE 

9001 PRINT"r3W3PøL TILBAGE OG TRVK SRETURNfi"=G0SUB12 

9005 PR I NT " rOTTRVK SBTOPB" : WAIT37151 ; 126;62 : PRINT" ."3" 

9010 OPEN1, l,ø:G0SUB81 = INPUT#1, M: INPUT#1, BI '■ I NPUT# 1 > GS : INPUT#1 ^ GI : INPUT#1,02 : INP 
UT#1.MA* 

9020 FORT-1TOM:INPUT#1,PO*:INPUT#1,PO 

9030 IFPO*OPO*<T)ORPOOPO<T>THENPRINT"Z!WFEJL" : PRINT"VEDR. BILAG NR. "T+BI ■ G0SUB1 
1:G0SUB12:00T09ø9ø 

9040 PRINT"MWiBILAO NR."BI+T = PRINT"W"MID*«PO*<T), 9)" SER 0KB" :G0SUB10 
9090 NEXT '• CLOSE1 : GOTO 1000 
63990 END 

63998 OPEN 1,8,15: SAVE " DUMMV ",8 = PRI NT# 1," SØ : REGNSKAB "■PRI NT# 1 , »Rø: REGNSKAB-DUMMV " 
:CLOSE 1 

63999 VERIFV"REGNSKAB",8 
READV. 


5 



* &WIO 


Her er opskriften på 
et »kvik-find« 
program til Commodore 64 


VIC-20 brugere kan nikke 
genkendende til dette lille 
program. Og du kan spørge 
en af dem, om de ikke har væ¬ 
ret glade for det. Derfor viser 
vi her Kvikfind i en Commo¬ 
dore 64 version. 

Det mest irriterende ved at 
bruge en kassettebåndopta¬ 
ger som lager-medium er den 
ventetid, man har, indtil 
Commodore 64 har fundet 
frem til programmet, der må¬ 
ske er lagret i slutningen af et 
C-60 bånd. 

Og hvem kender ikke den si¬ 
tuation, hvor man har glemt 
at nulstille tælleren, eller er 
kommet i tvivl om man nu 
har husket det, når man er 
ved at spole frem til et pro¬ 
gram. 

Disse og lignende situationer 
kan man godt glemme alt om, 
hvis man bruger Kvikfind 
som første program på alle si¬ 
ne kassettebånd. 

Så snart programmet er ind¬ 
læst i Commodore 64, og 
man har tastet RUN, får man 
en menu op på skærmen. 
Man vælger sit program ved 
at taste et tal ind, og fluks 
kommer ordren om at trykke 
F.FWD. Maskinen stopper 
automatisk ved det ønskede 
program, og er klar til ind¬ 
læsning. 


Sådan gør du 

1. Båndet med Kvikfind spo¬ 
les helt tilbage. 

2. LOAD 

3. RUN 

4. Vælg hvilket program¬ 
nummer du ønsker. 

5. Tryk F.FWD når C-64 
ber’ om det. 

6. Tryk stop når C-64 siger 
til. 

7. Tryk PLAY hvorefter 
programmet loades. 

Fremgangsmåden er nøjag¬ 
tig den samme som for det 
Kvikfind-program, vi bragte 
i det allerførste nummer af VI 
&VIC. 

Klar til optagelse 

Først gør du dig klart, hvilke 
programmer du ønsker på 
båndet foruden Kvikfind. De 
skal nemlig navngives i data¬ 
sætningen sidst i program¬ 
met. Der skal være overens¬ 
stemmelse mellem program¬ 
navnene i datalinierne og i 
den titel, du hæfter på SAVE 
kommandoen senere. 
Fremgangsmåden er følgen¬ 
de, når du skal indspille et nyt 
bånd med Kvikfind og et an¬ 
tal programmer: 

1. LOAD (eller skriv) Kvik¬ 
find ind i Commodore 64. 


2. Tag Kvikfind-båndet ud 
(master-båndet) og sæt en 
frisk kassette i. SAVE” 
Kvikfind*spil” f.eks. el¬ 
ler blot SAVE”Kvik- 
find”. Spol IKKE tilbage. 
Pil kassetten ud. 

3. LOAD det program du 
ønsker på position et fra ét 
eksisterende bånd. Pil 
kassetten ud. 

4. Sæt båndet med ”Kvik- 
find+spil” i recorderen og 
SAVE”(navnet - der skal 
svare til data)”. 

5. Spol tilbage. LOAD og 
RUN. 

6. Vælg hvilken position næ¬ 
ste program skal SAVEes 
fra. Tryk tallet og RE¬ 
TURN. Når C-64 ber’ om, 
at du trykker STOP, tryk¬ 
kes dernæst RUN/ STOP 
for at afbryde den norma¬ 
le brugerrytme. 

7. Start fra punkt 3 igen. 


Tips og faldgrupper 

Du kan lagre lige så mange 
programmer på båndet, der 
er plads til. Linie 500 indehol¬ 


der variablen N, der angiver 
antallet af programmer. Men 
husk, at DATA i linierne 590 
og fremefter skal svare til an¬ 
tallet af programmer. 

Hvert program fylder seks se¬ 
kunders fremspoling på bån¬ 
det. Hvis du ikke tror det 
strækker, skal du gå ind i linie 
570. 600 svarer til ti sekun¬ 
der. Et sekund mere: 660 osv. 
Linie 570 er i øvrigt program¬ 
mets ankermand. Det er her 
vi, ved hjælp af TI variablen, 
får udlæst digitaluret i C-64. 
Du kan »snyde« computeren 
fra dens krav om samhørig¬ 
hed mellem DATA og titler¬ 
ne på programmerne. I stedet 
for at skrive "program 1, 
osv’ ’ i DATA, kan du sætte N 
antal kommaer. Fordelen 
ved det er, at kassetten er let¬ 
tere at lagre programmerne 
på. Skriv blot SAVE. 

Til gengæld mister du infor¬ 
mationerne om, hvilket bånd 
der indspilles, og når du 
LOADer, vil det være det 
næstfølgende program, som 
lagres i C-64. 

I øvrigt henvises til de REM 
kommentarer, der er givet i 
programmet. Dem behøver 
du naturligvis ikke taste med 
ind. 


5øø N*>7 : DIMN$(N> : FOR I “1 TON : RERDNtCI ) : NEXT 

510 PR I NT ".-»PROGRAM 8HKVIKFIND9I NUMMER OG HAVNM" 

520 FORI*lTøN : PRINTI;"" > N$<I) : NEXTI 
530 I NPUT" »UF IND NUMMERIH"; J : PRINT 
54ø IFJ<10RJ>NTHEN510 
550 IFJ*=lTHEN58ø 

56ø IFPEEKC1>055THENPRINT"BTRVK anSTOPBi PAR RECORDER" 

561 I FPEEK < 1 > OS5THEN561 

564 PRINT" »UTRYK 8PF.FWDBi ":SVS63524 : A*TI 

570 IFABS<TI-AK<:J-1)*600THEN570 

575 PRINT'USUTRVK WISTOPBi PAR RECORDER" 

577 SYS64653:1 FPEEK U ) OS5THEN577 

580 PRINT"n" i CHR$<17>;CHR$<17);CHR$<17);"LOAD" i CHR*<34>;N*<J>;CHR*<34>;CHR*<13> 
585 P0KE198;1 ; P0KE631^13 : END 

530 DATAPROGRAM 1,PROGRAM 2,PROGRAM 3,PROGRAM 4, PROGRAM 5 
535 DATAPROGRAM 6 ,PROGRAM 7 



Ml & VIG 


Flere måder at håndtere 
tal, der skal stå 
pænt under hinanden 


Talkolonner er noget, der er 
god brug for. I hvert fald har 
vi fået flere henvendelser om 
emnet efter sidste udgave af 
VI & VIC, hvor vi angav en 
subrutine, der kunne klare 
sagen. 

En svaghed i den viste rutine 
var hastigheden, idet afvigel¬ 
ser fra den ønskede linie¬ 
længde blev kompenseret 
med én position ad gangen - 
hvorefter der igen blev testet 
for korrekt linielængde. 

Bent R. Husted i Esbjerg 
skriver således til os: 

Efter at have studeret jeres 
subrutine i VI & VIC nr. 2/83 
vedr. kr. og øre præsentation 
- én facilitet, som jeg ofte har 
savnet på min VIC, synes jeg, 
at jeg ville tillade mig at bi¬ 
drage med en tilsvarende ru¬ 
tine, der har et par fordele 
frem for det præsenterede 


program, idet jeg straks blev 
slået af sub’ens langsomhed. 
Det er ikke lykkedes mig, ef¬ 
ter mange forsøg, at få føl¬ 
gende programstump til at 
svigte i sin tilsigtede funk¬ 
tion. 

Linie 904 checker om ’pr’ er 
en ren decimalbrøk og hæg¬ 
ter i givet fald et ’0’ foran tal¬ 
let. 

Såfremt det tal, der skal prin¬ 
tes, er negativt, sørger linie 
905 for at stable et foran, 
dette blev jo fjernet i linie 
903. Hvorfor så linie902? Jo, 
VIC omsætter decimalbrø¬ 
ker, der er mindre end ’ .01 til 
eksponentialnotation (f.eks. 
bliver tallet 0.001 udskrevet 
som 1E-03), dette vil ske, så¬ 
fremt tallet, der skal printes, 
erNULp.g.a. metoden i linie 
903, - derfor. 



Fra Ole Andersen i Ålborg 
har vi modtaget et andet for¬ 
slag til løsning af opgaven: 

Lige et par ord for at fortælle 
jer, at jeg har fundet ud af at 
stille tal op under hinanden i 
kolonner, så det ser ordentlig 
ud. 

Subrutinen er en videreud¬ 
vikling af mit eget hidtil an¬ 
vendte »kolonniseringspro- 
gram« - der ikke indeholdt 
tekstningen (tr$) - endvidere 
er det skrevet således, at det 
blot ved ændring af linie¬ 


numre direkte kan indgå i 
programmer der allerede er 
skrevet med VI & VIC’s sub¬ 
rutine. I det følgende vil jeg 
kort redegøre for program¬ 
mets funktion. 

Indsætning af prikker eller 
spaces mellem tekst og tal 
foretages valgfrit ved at gå 
ind i linie 900 eller 901 (left$ 
for at forhindreevt. overskri¬ 
delse af tilladelig strenglæng¬ 
de (!)). 

Problemet med efterfølgen¬ 
de nuller klares ved at »sny¬ 
de« en ekstra decimal (.001) 
på tallet efter afrunding i linie 
903, denne fupdecimal og det 
indledende fortegnsfelt fjer¬ 
nes i strengen (pr$) i sidste 
sætning i linien. For ikke at 
skulle lave et større nummer 
ud af det, dannes strengen 
’pr$’ ud fra ABSolutværdien 
(altid positiv) af tallet ’pr\ 


9W 

901 

902 

903 

904 

905 

906 


tr#«left#(tr#+".",11 

tr#«left#(tr#*" ",11 

then prji="0.00":goto906 


1 ! 


goto902 


=0 


8trjÉ(int(ab8(pr)*100+.5)/lØ®+.0 0 1 ):pr# = mid# 


if pr> 

?pr#,2.1en(pr#:>-2) - 

if abs(pr)<1 then pr# - "Ø n +pr# 
if pr<0 then pr£ = "-"+pr# 
print left#(tr#,ll-len(pr#));pr# 


return 


X = det tal, der skal udskri- 
ves, og det bliver lavet om til 
X$ og bliver udskrevet som 
sådan. Jeg håber, at der er an¬ 
dre, der kan få glæde af dette. 

Ole Andersen 


62øøø “+STR*<INTOO), 10) 

62010 B*-LEFT*<MID*<STR»<INTC<X-INTOO>*løe+.eø5>>+"øø",2>,2> 
62020 C*-"**!Xø-fi*+C*+B* : RETURN 


Kommunikationen til 
printer ikke i orden 


Fra en læser i Norge, Per Egil 
Tellefsen i Hønefoss, har vi 
fået præsenteret et problem 
med en printer, som ikke vil 
printe. Det drejer sig om en 
»Digital LA34«, som bruge¬ 
ren har sat i forbindelse med 
VIC ved hjælp af et RS 232- 
interface. Han får ingen for¬ 
bindelse og spørger derfor, 
om det kan tænkes, der er 
forskel på ind- og udgange¬ 
ne. 


Nu er kommunikation med 
ydre enheder en mere kom¬ 
pliceret sag end blot at sætte 
et stik rigtigt i. Vi tror ikke, 
det er ben-figurationen, der 
er noget galt med, men man 
kan forsøge sig med at om¬ 
bytte ledningerne til ben 2 og 
ben 3. 

Vær opmærksom på, at RS 
232 benytter sig af apparat 
nummer to, så der skal altså 


ikke åbnes til nummer 4, som 
når der bruges en printer, der 
kan tilsluttes direkte til VIC. 

Der skal i stedet åbnes til ap¬ 
parat 2, f.eks. OPEN 1,2,1. 

Men efter denne åbning skal 
der skrives en CHR$-værdi, 
der beskriver kommunika¬ 
tionen. Det er vigtigt at sende 
til printeren med samme ha¬ 
stighed, som den forventer at 


modtage. Der kan sendes 
med hastigheder fra 50 til 
2400 baud. 1200 er en sæd¬ 
vanlig indstilling, men det 
skal altså lige tjekkes efter. 

Desuden må ordlængden og 
antallet af STOP-bits define¬ 
res. dette findes der flere in¬ 
formationer om i bogen VIC 
Revealed (side 204-215). 
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VI & VIC 


Sæt skærmen ud af drift, 
når C-64 skal bruge VIC 
printer og diskette-drev 


Commodore 64 er en væsent¬ 
ligt kraftigere sag end VIC- 
20, og det kan give visse van¬ 
skeligheder, når udstyr skal 
benyttes til begge maskiner. 

Det gælder således diskette¬ 
stationen og printeren, men 
det har vist sig at være muligt 
at få Commodore 64 til at kø¬ 
re med VIC-udstyret. 


Problemet består i hastighe¬ 
derne, hvormed data overfø¬ 
res, og løsningen er, at skær¬ 
men sættes ud af drift, så 
Commodore 64 ikke behøver 
bruge energi på at generere 
skærmbilledet. 

Det skulle være tilstrækkeligt 
til at både printer og diskette¬ 
stationen kan køre uden 
problemer. 


Skærmen sættes ud af drift 
med ordren POKE 53265,11- 
og når man skal tilbage til 
normal skærm, er ordren 
53265,27. 

Skulle der opstå problemer 
med at komme tilbage til den 
normale skærm, skulle det 
kunne klares ved at trykke på 
RUN/STOP og RESTORE 
på samme tid. 


VIC K TOR snyder 


Commodore 6 



VIC er printer 


Fejlene i VIC 20 
brugervejledning 


Under sætningen af VIC-20 
brugervejledning er der op¬ 
stået nogle fejl. 

Her bringer vi hele listen af 
rettelser. 

Fejl er næsten umulige at 
undgå, og der er også konsta¬ 


teret skønhedsfejl* i Commo¬ 
dore 64-vejledningen. Når en 
egentlig fejlliste foreligger, 
vil vi også bringe den videre, 
men her er i første omgang 
VIC-20-smutterne: 


Side 26 På sidens øverste halvdél: De to grafiske 

afbildninger af tasterne: RVS ON og RVS OFF, 
skal byttes om. 

Side 28 Programeksempel: 8GOTO50. Skal være: 
8G0T05. 

Side 29 14. tekstlinie: i hele lå. Skal være: i hele 16. 

Side 36 Tekst i kasserne: Memory location. Betyder: 
Hukommelses plads. 

Side 42 12. linie. I mellemrummet mellem ’RUN’ og 

’igen’, skal der være et ’RETURN’-mærke. (Som 
i linie 1). 

Side 53 Sidste linie på siden: og tryk på . 

I mellemrummet skal der være et ’RETURN’- 
mærke. 

Side 68 Linie 130. Skal være: FOR N = 1 TO 2000: 
NEXTN 

Side 76 Øverst: 7. tone hedder BI, ikke TI. 

Side 77 Variablen i linierne 120,130 og 150 er TØ (t-nul), 
og ikke TO, der er reserveret variabel, og derfor 
ulovlig. 

Side 82 Linie 30 i eksemplet: x skal ændres til*, 
(gangetegn). 


Side 83 Mellem ’HVAD’ og ’ER’ i linie 1, skal der være 
et ’SPACE’-mærke. 

Side 103 X*= RND(1)10 +10, skal være: X = RND 
(1)*10+10 

X = INT(RND(1)10+10), skal være: 

X = INT(RND(1)*10+ 10) 

Side 104 X = INT(RND(1)11 +10), skal være: 

X = INT(RND(1)*11 + 10) 

X = INT(RND(l)a) + b, skal være: 

X = INT(RND)(l)*a) + b 

Side 107 IEEE 488 INTERFACE. Findes ikke. 

Side 111 Linie 70, skal være: PRINT = 1,A$ 

Linie 80, skal være: IF A$ <> ”STOP” 

THEN 60 

Side 153 Under indtastningen af dette program, kan der 
opstå problemer i linie 135. Denne linie er 
nøjagtig 88 tegn lang - hvis man indtaster uden 
mellemrum - hvilket gør den meget svær at 
indtaste. Gør følgende: Forkort alle PEEK- 
instruktioner til: P shiftet E, alle POKE til P 
shiftet O, osv. (Se side 133). Sørg for at markøren 
står indenfor de fire første skærmlinier, før der 
trykkes på RETURN. 
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via 


200 sider med grafik 
for VIC 20 
med super-expander 




Det er en verden af nye mulig¬ 
heder, der åbner sig for den 
VIC-bruger, der har anskaf¬ 
fet en super-expander, ikke 
mindst med hensyn til grafik¬ 
ken. 

Super-expanderen giver vir¬ 
kelig mange muligheder for 
at lege med farver og grafiske 
effekter på skærmen - men 
hvordan kommen man i 


gang, når man har leget fær¬ 
dig med brugervejledningens 
eksempler? Een af måderne 
er at kigge i Nick Hampshires 
bog »VIC Graphics«. Den er 
på engelsk, men hvis man tør 
kaste sig ud i læsning af dette i 
data-verdenen dominerende 
sprog, er her næsten 200 si¬ 
ders inspiration til super- 
expander-brugeren. 


I bogen gennemgås de speci¬ 
elle BASIC-kommandoer, 
som super-expanderen giver 
mulighed for, f.eks. CIR- 
CLE og PAINT, og der er 
masser af program¬ 
eksempler, der illustrerer, 
hvordan skærmbilledet byg¬ 
ges op. 

Bogen er inddelt i kapitler, 
der hver for sig behandler sit 


aspekt af brugen af grafik, og 
det program-eksempel, vi 
har hentet fra bogen stammer 
fra kapitlet om tre-dimensio- 
nelle figurer. 

VIC Graphics koster i Dan¬ 
mark 195 kr., og den kan fås 
hos VIC forhandlerne. 


J REM 3D DRRWING 1 

2 REM *************!m******* 

3 REM 

lø REM R THREE DIMENSIONAL SHRPE IS DRAWN BV THIS PROORRM 
20 REM THE ROTATION POSITION RND SCRLE OF THE OBJECT 
30 REM CRN BE CHRNOED TO OIVE DIFFERENT VIEWING RNGLES. 
35 REM 

40 REM SET COLOURS 
50 GRfiPHIC 2 
6ø COLOR 3.3.0.10 
65 REM 

70 REM DRRW BORDER AROUND SCREEN 
75 REM 
80 OOSUB 900 
85 REM 

90 REM SET UP CONSTRNTS, VRRIRBLES, RND RRRRVS 
95 REM 

100 DIM R«.4> 

110 DIM B<4,4> 

120 SX-.3 

13ø SV«. 3 

140 SZ«.3 

150 TX=1 

160 TV«1 

170 TZ*1 

180 RX=40*ir/180 

190 RY«2ø*ir/ieø 

200 RZ«50#ir/18ø 

400 REM MRIN PROORRM LOOP 

410 OOSUB 1000 

420 OOSUB 5øøø 

430 OOSUB 3000 

440 OOSUB 4000 

450 GOSUB 2000 

500 GET Rt ; IF A»="" THEN 500 
510 COLOR 1,3,6/0 
320 GRRPHIC 0 
530 END 

900 REM BORDER DRRWING SUBROUTINE 
905 REM 

910 POINT 3,0,0 
920 DRRW 3 TO 8,1023 
930 DRRW 3 TO 1023,1023 
940 DRRW 3 TO 1023,0 
950 DRRW 3 TO 0,0 
960 RETURN 
995 REM 

løøø REM INITIRLISE SHRPE 

1005 REM 

lølø NP«8 

1020 NE«12 

1030 REM 

1040 DIM SC3,NP) 

1050 DIM E<NE,2) 

1860 DIM M<3,HP> 
liøø REM 

1110 FOR N=1 TO NP 


1120 READ S(1,N),S(2,N),S(3,N) 

1130 NEXT N 

1140 FOR K=1 TO NE 

1150 RERD ECK,1),E<K,2> 

1170 NEXT K 
1193 REM 

1200 REM X,V,Z POINT COORDINRTES 

1210 DRTR 0,0,200,200,0,200,200,0,0,0,0,0 

1220 DRTR 0,200,200,200,200,200,200,200,0,0,200,0 

1295 REM 

1300 REM ‘ CONNECTIOH DRTR 
1305 REM 

1310 DRTR 1,2,2,3-3,4,4,1 
1320 DRTR 5,1,2,6,4,8,7,3 
1330 DRTR 6,5,5,8,8,7,7,6 
1900 RETURN 
1993 REM 

2000 REM DRRW SHRPE 
2005 REM 

2020 FOR K«1 TO NE 
2030 V1=ECK,1> 

2040 V2«ECK,2> 

2045 IF VI=ø THEN 2240 
2050 XB=M<1,VI) 

2060 YB=M<2,V1> 

2070 XE=M(1,V2> 

2030 VE=M<2,V2) 

2090 DS=1 
2100 P=XE-XB 
2110 Q=YE-YB 
2120 R=SQRCP»:P+Q*Q> 

2130 LX=P/R 
2140 LY=Q/R 

2150 FOR I=ø TO R STEP DS 
2160 X=6*ø.7#CXB+I*LX> 

2170 Y=lø23-6*<YB+I*LY> 

2180 IF X<0 OR Y*Cø THEN 2230 

2190 IF X>1023 OR Y>1023 THEN 2230 

2220 POINT 3,X,Y 

2230 NEXT I 

2240 NEXT K 

2900 RETURN 

2995 REM 

3000 REM SET TRANSFORMATION MRTRIX 
3005 REM 

3010 R<1,1>=C0S<RY>*C0S<RZ> 

3028 R<l,2>=COS<RY)*SIN(RZ> 

3030 fi<l,3>“-SIN<RY> 

3040 R<1,4>=0 

3050 R<2,1 )«COS<RX>id<-SIH<RZ) >+SIN<RX>#SIN<RY)#COS<RZ> 
3060 fi<2,2>=C0SCRX>#C0S<RZ>+SIN<RX>*SIN<RY>#SIN(RZ> 

3070 fl<2,3>=SIN<RX>#C0S<RV> 

3080 R<2,4>«ø 

3090 R<3,n = C-SIN':RX)>#<-SIH<RZ)>4C0S<RX>*SIN<RY>*C0S<RZ) 
3løø fi<3,2)«-SIN<RX)*C0S<RZ>+C0S<RZ)it!SIN<RY)*SIN<RZ> 
3110 R(3,3>=C0S<RX>#C0S?RY> 

3120 R<3,4>=0 

Fortsættes side 10 
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Fortsat fra side 9 


3130 

R<4.1 >-0 

4010 

FOR 0-1 TO NP 

3140 

B<4,2>-0 

4013 

REM 

3130 R<4,3>=0 

4020 

XT=S(1.Q)-XC 

3160 

fi(4/4>-l 

4030 

VT-SC2.CO-VC 

3195 

REM 

4040 

ZT=S<3,Q>-ZC 

3200 

REM SET UP SCRLING RND TRANSLATION MRTRIX 

4045 

REM 

3205 

REM 

4050 

M< 1,Q>»XC+CXT#B<1,1>+VT#B<2,1>+ZT#B<3,1>+B<4,1> > 

3210 

B<1.1>-SX«R<1,1) 

4060 

M<2, Q>=VC+<XT#B<1,2>+VT#B<2.2>+ZT#B<3,2>+B<4,2)> 

3220 

BjC1,2>»SXHiR<1,2> 

4070 

M<3.Q)=ZC+(XT*Ba.3)+VT#B<2/3>+ZT#B<3<3)+B<4/3?) 

3230 

B<1,3>«SX#R<1,3> 

4080 

NEXT Q 

3240 

REM 

4900 

RETURN 

3230 

B<2,1>=SV#R<2,1) 

4995 

REM 

3260 

B<2,2>=SV*fl<2,2> 

5000 

REM FIND CENTROID 

3270 

B<2,3>»SV#fi<2,3> 

5005 

REM 

3290 

REM 

5010 

P—0 : Q—0 : R—ø 

3290 

BC3,1>-SZ*R<3,1> 

5020 

FOR 1-1 TO NP 

3300 

B<3,2>-SZ#R<3,2> 

5030 

P-P+SC1,I> 

3310 

BC3,3>-SZ#RC3,3> 

5040 

Ql«Q+S<2,I> 

3320 

REM 

5050 

R-R+S<3.I> 

3330 

B<4.1 >*orx 

5060 

NEXT I 

3340 

B<4,2>-TV 

5070 

XC-P/NP 

3350 

B<4,3>»TZ 

5830 

VC-0/NP 

3900 

RETURN 

5090 

ZC-R/NP 

3995 

REM 

5900 

RETURN 

4000 

4005 

REM PERFORM TRRNSLHTION 

REM 

RERDV. 


Masser af programmer 
til Commodore 64 og 
til VIC 20 


Der er stadig mange Commo¬ 
dore 64-brugere,' der søger 
råd om, hvordan VlC-pro- 
grammer læses ind i Commo¬ 
dore 64. 

Som omtalt i sidste nummer 
af VI & VIC skal program¬ 
merne modificeres, hvis de 
indeholder PEEK eller PO- 
KE kommandoer, ligesom 
der skal tages højde for at 
Commodore 64 har 40 karak¬ 
terer på hver skærm-linie, 
hvor VIC 20 kun har 22. En¬ 
delig skal eventuelle maskin¬ 
kodeprogrammer skrives 
om. Selve indlæsningen fra 
kassettebånd kan ikke fore¬ 


går direkte, her må man gøre 
omvejen over en diskettesta¬ 
tion. 

Et VIC-program på kassette 
skal altså først indlæses i en 
VIC 20, hvorfra det lagres på 
diskette. Fra denne diskette 
kan det indlæses i Commo¬ 
dore 64, hvorfra det igen kan 
lagres på kassette, hvis det er 
den opbevaringsform, man 
har valgt. 

Men til glæde for de mange, 
som med spænding har ven¬ 
tet på færdige programmer til 
Commodore 64 kan det oply¬ 
ses, at der er godt nyt på vej. 


Ikke alene er der mange for¬ 
skellige spil undervejs, men 
der er allerede udgivet bånd¬ 
programmer med titlerne 
»Matematisk kryds og bol¬ 
le«, »Gi’ og tag«, »Matema¬ 
tikmodul« (der udregner lig¬ 
ninger) og et »kurvetegning¬ 
sprogram«. Disse program¬ 
mer koster 125 kr. pr. stk. hos 
VIC'forhandleme. 

På diskette fås nu fem nye 
programmer, der findes både 
til Commodore 64 og til VIC 
20 . 

Det er et bogføringspro¬ 
gram, et lagerprogram, et 


multikartotek, hvor der kan 
søges med to kriterier ad gan¬ 
gen, et plakat-udskriftpro- 
gram med kæmpebogstaver, 
og endelig et fakturerings¬ 
program. 


Program P3 



ret 

peek 

og 

poke 



pa diskette 



Comrnodore 


10 





UVICÉ 


Computeren må 
gerne blive varm 


Tvivlere har spurgt, om det 
virkelig kan være rigtigt, som 
vi tidligere har skrevet, at 
man kan lade være med at 
slukke for sin computer. Den 
bliver jo varm, og kan den nu 
tåle det. 

Det samme sprøgsmål er 
kommet fra en VlC-skak- 
spiller, som i brugervejled¬ 
ningen til SARGONII Chess 
har hæftet sig ved oplysnin¬ 
gen om, at den gennemsnitli¬ 
ge træktid i højeste svær¬ 
hedsgrad kan blive fire timer. 
Kan VIC virkelig holde til at 
være tændt så længe? spørger 
Jesper Sørensen i Allerød. 

Vi kan føje til, at det også står 
i brugervejledningen til SAR¬ 
GON II Chess, at de enkelte 
træk kan variere fra en tredie- 
del til tre gange den gennem¬ 
snitlige træktid, så man kan 
altså komme ud for, at VIC 
skal gruble over et enkelt 
skak-træk i 12 timer(!) - og vi 


kan straks trøste den tålmo¬ 
dige skak-spiller med, at det 
kan computeren sagtens tåle. 
Det er naturligvis en god skik 
at slukke for elektriske appa¬ 
rater, når de ikke bruges, 
men der er ingen grund til at 
frygte, at VIC 20 eller Com- 
modore 64 skal »brænde 
sammen«. Hos Commodore 
har man eksemplarer af VIC 
20, som har været tændt i fle¬ 
re måneder, og det giver ikke 
anledning til vanskeligheder. 
Tænk også på, at compute¬ 
ren kan anvendes i kontrol¬ 
systemer, der ganske enkelt 
forudsætter, at den er i drift 
konstant. 

Varmen 

Det er varmen fra selve com¬ 
puteren og fra den lille trans¬ 
formator, der giver anled¬ 
ning til bekymring. Og det er 
da også rigtigt, at begge dele 
udvikler varme, men det er en 


helt normal foreteelse. Var¬ 
meudviklingen bliver kun et 
problem, hvis computeren 
ikke kan slippe af med sin 
overskydende energi. 
Anbring derfor altid compu¬ 
teren på en plan bordplade, 
så der kan komme luft ind un¬ 
der den - der er luftåbninger i 
bunden af kabinettet - og de 
må naturligvis ikke lukkes. 
Hindrer man computeren i at 
slippe af med sin varme, vil 
det være et spørgsmål om tid, 
hvornår kabinettet smelter. 
Når computeren står på et 
bord og der er normal venti¬ 
lation omkring den er der ab¬ 
solut intet faretruende ved 
varmen. 

Samme forholdsregler bør 
tages for alle andre appara¬ 
ter, der afgiver varme - selv en 
almindelig skrivebordslam¬ 
pe har sine ventialtionsriller - 
men i computersammen¬ 
hæng er det måske specielt 
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diskette-drevet, der stiller 
krav om ventilation. Det er så 
fristende at give diskettestati¬ 
onen sin lille plads i bogreo¬ 
len, så man bare kan putte 
disketterne ind i fronten, 
men her må man være sikker 
på, at luften kan cirkulere frit 
omkring apparatet. 


Vie 20 og Commodore 64 
på Heming-messen 


Der vil blive lagt mærke til de 
små Commodrecomputere, 
når Hi-messen åbner i sep¬ 
tember i Herning. Commo¬ 
dore Data A/S har fået sin 
egen boble-hal på 300 kva¬ 
dratmeter, og det bliver først 
og fremmest VIC 20 og Com¬ 
modore 64, der vil blive præ¬ 
senteret på denne udstilling. 
For brugere, der allerede har 


en computer, bliver der også 
nok at se på, hvis man har 
mulighed for at komme til 
Herning. På udstillingen vil 
der blive præsenteret udstyr 
til computerne, og mange af 
de nye spil, som kommer på 
markedet til efteråret er klar 
til demonstration på udstil¬ 
lingen. 


VIC revealed 

VIC Revealed er for mange 
VIC 20-brugere blevet en lille 
bibel, der gav svar på mange 
af de ting, der ellers kunne 
mystificere programmørens 
tilværelse. 


Efter at have været udsolgt er 
bogen (der er på engelsk) 
kommet i en ny udgave. Pri¬ 
sen hos VIC forhandlerne er 
195 kr. 


BESTILLINGSKUPON TIL VI & VIC 

□ Jeg ønsker abonnement pi VI & VIC. 

Prisen er 123 kr. for et års abonnement, der omfatter seks numre - frit tilsendt. 

Af de tidligere udgaver vil jeg gerne have: 

□ Nr.l - □ Nr. 3 - □ Nr. 4 - □ Nr. 5 1982 - □ Nr. 1 - □ Nr. 2 □ Nr. 3 1983 


Jeg abonnerer pi VI & VIC og vil gerne have en kopi af følgende programmer: 


Kassettebind 
å 20 kr. 

Program- 
listning 
å 10 kr. 

Titel 

Omtalt i 

VI & VIC nr. 

Programmets 
omfang (bytes) 

□ 

□ 

24 TIMER 

2/1982 

2811 

□ 

□ 

7 DØGN 

2/1982 

6024 

□ 

□ 

FREKVENS 

2/1982 

2405 

□ 

□ 

ØKO-SYS 

3/1982 

3745 

□ 

□ 

VI & VIC SPIL 

4/1982 

3226 

□ 

□ 

KARAKTER 

5/1982 

1651 

□ 

a 

BANKO 

2/1983 

3783 

□ 

□ 

4 PÅ STRIBE 

3/1982 

2406 

□ 

□ 

HAPS 

3/1983 

2501 

□ 

□ 

REGNSKAB 

3/1983 

6802 


Desuden ønsker jeg: 

VIC-20 memory map (20 kr.) • 4/1982 

BASIC 4 memory map (20 kr.)4/1982 

□ Programmering med Commodore basic 148,- 


Som abonnent pi VI & VIC betaler jeg kun 20 kr. pr. bind og memory map og 
10 kr. pr. programlistning. 

Beløbet, som inkluderer moms og forsendelse, vedlægges bestillingen. 

Navn:_-— - 

Adresse:___ 


Postur.:_By:- 

Kuponen sendes til VI & VIC, Kornager 29, 7100 Vejle. 
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VbVIC 



Ny dansk bog om programmering 
med Commodore BASIC er skrevet 
direkte til VIC 20 


Brugervejledningerne til de 
små computere fra Commo¬ 
dore, VIC 20 og Commodore 
64, er så instruktive, at man 
faktisk kan lære BASIC-pro- 
grammering blot ved at læse 
dem - og hele tiden have dem 
ved hånden, når man arbej¬ 
der. 

Ikke desto mindre har efter¬ 
spørgslen efter mere pro¬ 
grammeringslekture været 
meget stor, men nu er den 
kommet - på dansk. 

Det er Erwin Neutzsky- 
Wulff, som på BORGEN’s 
forlag har fået udgivet bogen 
»PROGRAMMERING med 
Commodore BASIC«. Det er 
220 siders spændende VIC 
20-læsning for de 148 kr., 
bogen koster. 

Bogen er skrevet, så den kan 
læses helt uden forudsæt¬ 
ninger - og når man er kom¬ 
met igennem den har man et 
virkeligt godt grundlag for at 
gå videre til den mere avance¬ 
rede data-litteratur og til at 
forstå datatidskriftemes un¬ 
dertiden meget indforståede 
artikler. 

»PROGRAMMERING med 
COMMODORE BASIC« er 
skrevet som en lærebog med 
40 lektioner. Har man lyst, 
kan man ganske enkelt starte 
ved lektion 1 og arbejde sig 
igennem bogen - men den er 
også udmærket som opslags¬ 
værk - bl.a. fordi der er et 
godt stikordsregister ligesom 
indholdsfortegnelsen er så 
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overskuelig, at man let finder 
frem til den lektion, man har 
brug for at »repetere«. 

Fra bar bund 

Første del har 10 lektioner for 
den VIC-bruger, der er helt 
på bar bund - og også en god 
introduktion til den læser, 
der endnu ikke har en compu¬ 
ter. Her får man noget at vide 
om, hvad BASIC egentlig er 
for noget, hvordan variabler 
fungerer og hvordan pro¬ 
grammer afvikles. Logiske 
operationer og relationer be¬ 
handles også i denne del. 

I anden del er det data og sæt 
af variabler, der får tildelt 
deh største opmærksomhed, 
tredie del er helliget billede og 
lyd, mens fjerde del drejer sig 
om karakterer og grafik. 

Mange eksempler 

En positiv ting ved bogens 



som man ellers kan have 
svært ved at finde frem til. 
»PROGRAMMERING med 
COMMODORE BASIC« er 
illustreret af Jesper Deleu¬ 
ran. 


gennemgang af programme¬ 
ringsmulighederne er, at der 
konsekvent er anført eks¬ 
empler på, hvordan de for¬ 
skellige funktioner kan brin¬ 
ges i anvendelse. Små lette 
programmer, som er lette at 
taste ind, så man hurtigt kan 
få syn for sagn: Det virker 
faktisk som beskrevet. 

Rart er det også, at der er ble¬ 
vet plads til en oversigt over 
nogle af de system-variabler. 


Du kan købe 
bogen gennem 
VI & VIC 

Bogen om programme¬ 
ring kan du bestille hos VI 
& VIC. Den koster 148 kr. 
Brug bestillingskuponen 
her i bladet eller skriv til: 
VI & VIC, Kornager 29, 
7100 Vejle. 


Andre Joy-sticks 
kan bruges til VIC 


Vi har modtaget: 

Jeg er en spillefanatiker på 14 
år. Dog spiller jeg kim med 
»goe’e gamle« VIC 20. Jeg 
har derfor anskaffet mig et 
Commodore Joy-stick. Det¬ 
te Joy-stick finder jeg, og sik¬ 
kert mange andre, dårligt. 
Laver Commodore virkelig 


ingen bedre joy-stick? Hvis 
ikke - Kan joy-stick fra andre 
computere bruges, f.eks. et 
fra Texas Instrument? (Må¬ 
ske med en lille ombyg¬ 
ning!?). 

Jeg vil sætte stor pris på jeres 
svar. 


Venlig hilsen den spilleglade. 
Jesper Sørensen 
Løvsangervang 8 
3450 Allerød 

Om en joy-stick er god nok el¬ 
ler ej er op til den enkelte at 
bedømme, men hvis man øn¬ 
sker at bruge andre fabrika¬ 
ter, skulle det normalt ikke 
give vanskeligheder. F.eks. 
kan det oplyses, at Commo- 
dores joy-stick er Atari- 
kompatibelt - eller på dansk: 
Atari’s joy-stick passer til 
Commodore-computerne. 



















IllaVIO 


Mikroprocessorens 
status register 
og brugen af »flag« 


Processorens status register 
indtager en meget vigtig 
plads i 6502’s interne opbyg¬ 
ning. Det er et otte bit pro¬ 
grammerbart register, og 
dets funktion ligger midt 
mellem kontrol- og register¬ 
delen. Det er det eneste regi¬ 
ster der har nogen egentlig 
indflydelse på kontrol-lo¬ 
gikken . Syv af de otte bit bru¬ 
ges, og hvert bit, eller flag, 
har en nøje bestemt funkti¬ 
on. 

Tre slags flag 

Flag kan deles op i tre katego¬ 
rier, de der kan kontrolleres 
af programmøren alene, de 
der kun kan kontrolleres af 
processoren. Der er i 6502 
kun eet flag der falder ind un¬ 
der den første kategori, deci¬ 
mal flaget, eller D-flaget. Det 
er bit tre i status registreret. 
Dette flag bestemmer hvor¬ 
vidt processoren udfører bi¬ 
nære eller decimale bereg¬ 
ninger. Det kan sættes med 
en sed instruktion, hvorefter 
al beregning foregår deci¬ 
malt. Bittet kan slettes med 


cld, hvorefter al beregning 
foregår binært. 

Der falder tre flag ind under 
den anden kategori: carry, 
overflow og interrupt disab- 
le. Carry eller C-flaget er bit 
nul, og ændres enten af visse 
beregninger, eller af pro¬ 
grammøren. Carry bruges 
også ofte som det »niende« 
bit under beregninger, eller 
under shift og rotate instruk¬ 
tioner. Instruktionen der be¬ 
nyttes for at sætte carry er 
sec, og det kan slettes med 
clc. 

Overflow eller V-flaget er bit 
seks, og benyttes under be¬ 
regninger hvor det bruges til 
at indikere, at beregningen 
krævede et resultat der var 
større end de syv byte der er 
plads til, (ottende bit er for¬ 
tegn.). V-flaget har samme 
betydning som carry flaget, 
men indikerer også at 
fortegnet må genoprettes, da 
overflowet i bit syv vil have 
ødelagt det originale fortegn. 
Programmøren kan kun slet¬ 
te V-flaget med elv instrukti¬ 
onen. 


Interrupt 

Interrupt disable, I-flaget, 
styrer virkemåden af proces¬ 
sorens interrupt input, og er 
placeret i bit to. Interupt er en 
meget vigtig del af en Com- 
modore computers opbyg¬ 
ning, og hver gang der fore¬ 
kommer et interrupt, sætter 
processoren I-flaget. Dette 
forhindrer processoren i at 
modtage flere interrupter på 
irq linien, indtil programmet 
har behandlet den først an¬ 
komne interrupt korrekt, og 
afsluttet med at slette inter¬ 
rupt disable flaget. I-flaget 
kan også sættes af program¬ 
møren, med instruktionen 
sei, f.eks. for at forhindre af¬ 
brydelse i en tidskritisk pro¬ 
gramløkke. I slutningen af en 
sådan rutine kan interrupten 
igen sættes i funktion med in¬ 
struktionen cli. 

De sidste tre flag: zero, nega¬ 
tive og break, kontrolleres 
alene af processoren. Zero og 
negative flagene sættes eller 
resættes af næsten enhver 
processor operation. Z-fla- 
get sættes af processoren på 
ethvert tidspunkt, hvor resul¬ 
tatet af en operation er nul, 
som hvis to tal med samme 
værdi trækkes fra hinanden. 
N-flaget sættes af processo¬ 
ren altid lig med det syvende 
bit af resultatet af en ope¬ 
ration. Et af de vigtigste for¬ 
mål med dets brug, er i for¬ 
bindelse med beregninger, 
idet N-flaget sættes hvis re¬ 
sultatet er negativt. B-flaget 
sættes af processoren medens 


den er igang med at færdiggø¬ 
re en interrupt rutine. Z-fla- 
get er bit et. N-flaget er bit syv 
og B-flaget er bit fire. 

Som i BASIC 

De syv status flag har hver 
især en betydning for pro¬ 
grammøren på forskellige 
stadier i en programudvi¬ 
kling. Selv om carry og over¬ 
flow flagene bruges meget i 
beregninger, er den største 
brug af dem i de betingede 
hop-instruktionér. Dette giv¬ 
er programmøren mulighed 
for, at indlægge program¬ 
forgreninger, der er afhængi¬ 
ge af flag, for på denne måde, 
at lade resultatet af f.eks. en 
beregning være afgørende 
for programmets videre gen¬ 
nemførsel. Dette er i princip¬ 
pet helt det samme som man i 
basic kan opnå med instruk¬ 
tioner som..if..then.goto. 
Der er et stort udvalg af in¬ 
struktioner af denne art. En¬ 
hver, der skriver et program, 
må være helt klar over hvil¬ 
ken stand de forskellige flag 
forventes at være i, igennem 
hele programmet. At undla¬ 
de dette er en af de allermest 
almindelige grunde til, at ma¬ 
skinkode programmer enten 
ikke vil virke, eller giver de 
forkerte resultater. Et eks¬ 
empel ville f.eks. være at 
undlade at slette carry flaget 
før en addition. Det kunne 
måske være blevet sat under 
forudgående instruktioner, 
og ville uværgeligt give for¬ 
kerte resultater. 


Forbedring af ØKO-SYS programmet, 
så det kan bruges med printer 


Verner Madsen, Tårnvej 
265,5. i Rødovre har skrevet 
en udvidelse til VI & VIC’s 
ØKO-SYS program, der sæt¬ 
ter det i stand til at give out¬ 
put til en printer. 

Han sender en programlist¬ 
ning af de nye og ændrede 
programlinier samt følgende 
forklaring: 

I linierne 1151,1271 og 1821 
er værdien »> 56« ændret til 
»>57«, som er ASCII-ko- 
den for tallet 9. Dette bevir¬ 


ker, at du ved tryk på 9, ifølge 
den understregede tilføjelse i 
linie 1160, kommer ned i sub¬ 
rutine 61000. Dette gælder 
dog ikke, når du ved spørgs¬ 
målet: »Hvilken konto«?, 
trykker på 9, ej heller ved ind¬ 
tastning af 9-taller i beløbe¬ 
ne. 


Subrutinen i linie 61000- 
61140 er den samme som i 
brugervejledningen til prin¬ 
teren, dog med få ændringer. 


1131 IFASC(S*)<:490RflSC<S*)>37THEN:i3ø 

1160 0NSG0SUB50000J30øø. 1200.13øø,21øø, 1700, løøø, løøø .filøaø 

1271 IFflSC < S*)<490RASC< S *) >37THEN127ø 

1821 IFflSC <S#> C490RASC < S* ) 337THEN1820 

61000 REM SKERMKOPI 

61010 G1*»CHR*<145> 

61020 0PEN4.4:PRINT#4 : Gi*40 7 4 
61030 F0RGØ-ØT022:Gø#«G1*:G1-G1+22 
61040 F0RG2-G1T0G2+21:03-PEEK < G2 > 

61050 IFG3>128THENG3-G3-128:G4=i :GØ*»Gø*+CNR*<18) 

61060 IF < C3>ø > # < G3<32 >THENG3"G3+64 ■ GOTQ61100 
61070 IF<G3>31)*(G3<64>THEN611øø 
61080 IF<G3>63> * < G3<96 >TKENG3*G3+i28 : G0T061 løø 
61090 IF < G3>93 > * < G3<128)THENG3-G3+64:GOTOS11øø 
61100 GØ*-GØ*+CHR*<G3> 

61110 IFG4-1THENOø*-Gø*+CHR*(146):G4-ø 

61120 NEXTC2: PRIMT#4.,CHR$< 13)GØ*CHR*( 13) : NEXTGø 

61140 RETURN 
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Funktionstasterne gør 


livet lettere: Du skal 
bare trykke på én knap 


Vier det ikkff være dejligt, 
hvis man f.eks. kunne starte 
et program, blot ved tryk på 
én taste. Eller, under pro¬ 
grammeringen blot trykke på 
den første funktionstaste og 
få programmet LISTet på 
skærmen? 

Her viser vi, hvordan det gø¬ 
res: 

Selvom programmet, der gør 
funktionstasterne program¬ 
merbare, er i maskinkode, 
behøver du ingen kendskab 
til maskinkode, for at bruge 
det. 

Når programmet er indta¬ 
stet, skal du sørge for at sam¬ 
menligne programmet med 
listningens DATA-sætnin- 
ger, da en enkelt fejl kan få 
din VIC til at gå i »baglås«. 
RUN først programmet, når 
du har SAVET det. Derefter 
fremkommer følgende: 
”F1 = ?”. Indtast den 
BASIC-kommando, eller in¬ 
struktion, du ønsker funk¬ 
tionstaste nr. 1 skal have. For 
hver RETURN, der skal in¬ 
kluderes, trykker du på ’«•’ 
pil til vesntre. Når du er sik¬ 


ker på, at tasten er defineret 
korrekt, trykker du på RE¬ 
TURN. 

Programmet vil så spørge ef¬ 
ter de resterende funktions¬ 
tasters definitioner. Når du 
har programmeret den 8. ta¬ 
ste, vil computeren skrive 
READY. Nu kan du blot 
trykke på den ønskede taste, 
og de tegn tasten har fået til¬ 
delt, vil blive printet. 

Således virker 
programmet 

Hvis din VIC går i baglås, el¬ 
ler du ikke får READY til 
sidst, må du slukke for com¬ 
puteren, tænde igen, og gen¬ 
indlæse programmet fra kas¬ 
setten. Sammenlign igen 
programmet med listningen 
fra begyndelsen til linie 65, 
specielt DATA linierne. 

Hvis READY kommer på 
skærmen, efter de 8 taster er 
defineret, og VIC ikke skri¬ 
ver de tegn, der blev define¬ 
ret, ved tryk på tasterne, skal 
du undersøge programmet 
fra 70 til 95. 


Hvis det stadig ikke virker, 
undersøges linie 100-115. 

Hvad nu, hvis det 
ikke virker 

BASIC programmet PO¬ 
KER to maskinkodepro¬ 
grammer ind i din VIC. Det 
ene går ned i kassettebuffe¬ 
ren, det andet i den øverste 
del af RAM’en. 

Programmet i kassettebuffe¬ 
ren spørger efter difinitioner- 
ne på de otte taster. 

Når du trykker på RETURN, 
gemmer programmet din 
indtastning i den øverste del 
af RAM’en. Når alle otte ta¬ 
ster er programmeret, vil det 
først program få computeren 
til at gå til det andet program i 
toppen af RAM’en, hver 60. 
sekund. Herefter bruges det 
originale program ikke, og 
det slettes automatisk ved 
næste brug af kassettebånd¬ 
optageren. Herved spares 
147 bytes af VIC’s hukom¬ 
melse. 

Det andet program under¬ 
søger konstant, om der er 
trykket på en funktionstaste. 


Hvis der er, vil programmet 
udskrive de tegn, der er defi¬ 
neret for tasten. 

Sådan sparer du plads 

Jo længere hver kommando 
til en funktionstaste er, jo 
mere hukommelse bruges 
der. Hvis kommandoerne er 
korte, vil de fylde ca. 200 by¬ 
tes. Programmet er maksi¬ 
malt istand til at bearbejde 
800 bytes. For at spare på 
pladsen, kan kommandoer¬ 
ne indtastes i forkortet form, 
som vist i VIC-20 brugervej¬ 
ledning side 133 og 134. 

De programmerbare taster 
kan virkelig spare program¬ 
møren for meget indtastning. 
VIC er udstyret med 8 funk¬ 
tionstaster, som du nu kan 
bruge til lige hvad du har lyst 
til. 

Her er et eksempel: 

RUN 

F1 = ? LIST 
F2 = ? POKE 
F3 = ? RUN 
F4 = ?PEEK( 

F5 = ? GOTO 
F6 = ? GOSUB 
F7 = ? PRINT PEEK (7680) 
F8 = ? LOAD LIST 

Udover denne måde at bruge 
funktionstasterne på, findes 
der også en mere simpel, i ren 
BASIC. Den er vist i VIC-20 
brugervejledning side 147. 


5 F*ø: OPEEK < 55)-120:1FCCØTHENOC+256: F=-1 
1ø D-PEEK< 56 > +F:P0KE55,C•P0KE56,D : CLR 
15 S=828=1=146■GOSUB100 

20 DATA32, 198,3,165,55,133,251,133,253,165,56,133,252,133,254,169,49,133,0,169 

25 DATA133,133,1,169,13,32,210,255,169,70,32,210,255,165,0,32,210,255,169,61 

30 DATA32,210,255,169,63,32,210,255,169,32,32,21ø,255,32,207,255,72,160,0,165 

35 DATA1,145,55,104,32,198,3,201,13,240,14,201,95,208,2,169,13,145,55,32 

40 DATA207,255,76,124,3,230,0,165,0,41,1,208,lø,24,165,1,105,4,133,1 

45 DATA76,170,3,56,165,1,233,3,133,1,165,0,201,57,144,163,120,169,Lø,141 

50 DATA20,3,169,Hø,141,21,3,88,169,0,133,0,32,68,198,76,116,196,166,55 

55 DATA208,2,198,56,198,55,96 

6ø S=PEEK < 55 >+256#PEEK(56 >:I = 119:GOSUB1Øø 

65 SVS 828 

70 DATA165,0,240,59,160,0,177,251,32,L99,HØ,176,12,165,55,197,251,208,21,165 
75 DATA56,197,252,208,15,169,0,133,0,165,253,133,251,165,254,133,252,76,191,234 
8ø DATA166,198,177,251,157,119,2,230,198,32,LI11,HØ, 165,198,201,11,144,204,230,0 
85 DATA76,191,234,165,215,32,L99,HØ,176,3,76,191,234,165,8,41,1,208,247,160 
90 DATAØ,177,251,197,215,208,6,32,Lill,Hø,76,L6,Hø,32,Lill,HØ,76,L81,Hø,201 
95 DATA133,144,6,201,141,176,2,56,96,24,96,166,251,208,2,198,252,198,251,96 
100 F=ø:F0RD=ST0S+1:READA*:IFASO <A*)<58THENA*VALC A* >:GOTO115 
105 IFASC< fl*)*76THENA=VALC RIGHT* < At, LEN < At > ■-1>)+PEEK< 55 >:IFA>255THENA*A-256:F»1 
110 1FASC(A$)®72THENA=VAL< RIGHT$ < A*,LEN < A* >-1>)+PEEK< 56)+F:F«ø 
115 P0KED,A:NEXT:RETURN 
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100 REM 


llø 

REM 

* 




120 

REM 

* 

PLAKAT PRINTER 

MA.I 1983 


)3ø 

REM 

* 

rKUUni S IIIIW ■ 

CHRISTIAN DIRKSEN 


1 40 
130 

REM 

REM 

* 








160 

REM 

* 

FORMRAL = 



170 

REM 

* 

UDSKRIFT AF FORSTØRREDE TEGN <8 GANGE 8> 


180 

RFM 

* 

PAR 

PRINTER AF SEIKOSNA 0P-100VC TVPEN. 


190 

REM 

* 

TILPASSES LET TIL ANDRE PRINTERE ELLER 


200 

210 

REM 

REM 

* 

TIL 

SKPERMEN. 






220 

RFM 

* 

VARIABLER: 



230 

RFM 

* 

B< I > TABEL. OVER POTENSER AF 8. BRUGES 


240 

REM 

* 


TIL BIT-SAMMENLIGNING. 


230 

REM 

* 

C# 

DET TEGN, PLAKATKARAKTERERNE OP- 


260 

REM 

* 


BVOOES AF. 


270 

REM 

* 

S* 

TEKSTSTRENGEN, DER FORSTØRRES OP. 


280 

RFM 

* 

T 

LAENODEN AF TEKSTSTRENGEN 8#. 


290 

RFM 

* 

S 

HVIS SAND : STANDARD KARAKTERER, 


300 

REM 

* 


HVIS FALSK : PROGRAMMEREDE TEGN. 


310 

REM 

* 

CG 

KARAKTERGENERATORENS PLACERINO I 


320 

REM 

* 


RAM/ROM. 


330 

REM 

* 

J,P,I TAELLERE I 'FOR-LOOP'. 


340 

REM 

* 

A 

ASCII-VAERDI AF HVERT TEON I S*. 


330 

REM 

* 

K 

EN BVTE I DEN KARAKTER, DER BE- 


360 

REM 

* 


HANDLES 'NU'. 


370 

REM 

* 

8* 

HVIS 'J' : FORTSÆT, 


380 

REM 

* 


HVIS 'N' : FAERDIG. 


390 

RFM 

ih 




4)0 

røi 





420 

OPEN 

,4: 

REM * 

TIL SKAERM: 'OPEN 1-3' * 



430 FOR I-ø TO 7 
440 : R<I>-21*I 

4!?ø NFXT I 

46ø ppiNT"naw udskrift af storf karakterer prr printer. 

470 PRINT"« INDTAST DET TEQN. SOM PLRKRTTEKSTEN SKRL OPBVOOES RF:"; 

40ø P0KE198,ø:WATT198,1 ■ GET C* : PRINTCt 

49ø PRINT"« SKRIV TEKSTEN, DER ØNSKES FORSTØRRET." 

5øø PRINT"»S MAX lø TFQN. ": REM * TIL SKRERM: 'MAX 2 TEGN' * 

31ø P0KE637,ø: REM * TILLRDER SKIFT MELLEM GRRFIK OG BOGSTAVER * 

52ø INPUT S* 

530 T-LEN<S») 

5^0 S«NOT < < PEEK < 36869 )RND8 V-8 ) 

530 IF NOT S THEN CO- < PEEK<36869>RND7>*1024 
S6ø IF S THEN CG-<PEEK<36869>AND3>#1024+32768 

370 TF T>10 THEN 3øø= REM * TIL SKRERM: 'IF T>2 THEN 300' * 

580 FOR J« ø TO 7: REM * 8 LINIER * 

580 : PRINT#),CHR*<8>=PRINT#1/CHR*<13>;: REM * REDUCERET LINIESKIFT * 

£00 : FOR p- 1 TO T: REM * ANTAL TEGN * 

610 : A-ASC<MID*<S#,P,1>> 

62ø : IF (3KR) AND <A<64> THEN 660 FORTSAET 

630 IF <63<A> AND <A<96> THEN A-A-64 0QT0660 

640 : TF <139<A) AND <A<192> THEN A-R-64' G0T06SØ 

65ø : IF <)9KA) AND <A<224> THEN A-A-128 00T0660 

66ø K-PFEK<CG+A*8+J> 

67ø : FOR 1-7 TO ø STEP-l: REM * 8 PIXELS PR. BVTE * 

680 : IF K AND B<I> THEN PRINT#1,C#;:NEXT I:GOTO?10 

£9ø : PRINT#1," »_: 

7øø : NEXT I 

710 : NFXT P 

720 NFXT J: PRINT 

730 PRINT"« ØNSKES FLERE TEKSTER UDSKREVET? <J/N>" 

740 GET A:i: IF A*-"J" THEN 47ø 

750 IF A*-"N" THEN PRINT#).: CL03El:END 

760 GOTO 74ø 


Lad VI & VIC 
hjælpe dig 

VI & VIC skal være med til at du kan få mere 
fornøjelse af din VIC-20, og derfor indbyder 
vi dig til at komme med dine praktiske eller 
mere teoretiske spørgsmål. 

Pladsen vil naturligvis sætte grænserne for, 
hvor mange spørgsmål, der kan blive besvaret 
her i bladet, men vi vil naturligvis først og 
fremmest lægge vægt på at besvare de 
spørgsmål, som optager mange VlC-brugere. 
Skriv til VI & VIC på adressen Kornager 29, 
7100 Vejle, hvis du har spørgsmål, du gerne 
vil have behandlet. 


Program, der 
får printeren til 
at skrive med 
kæmpe¬ 
bogstaver 

Christian Dirksen har sendt 
os dette program, der for¬ 
størrer skriften til printe- 
ren, så hvert enkelt tegn 
bliver otte gange højere og 
ottegange bredere end nor¬ 
malt. En god idé til over¬ 
skrifter og lignende. 
Programlistningen inde¬ 
holder alle oplysninger om 
strukturen - en kompliment 
til Christian Dirksen for 
den meget overskuelige 
præsentation... 


YlC-kontakten 

Navn:_ 

Adresse: -- 


Postnr.:_ 

BY:_ 

Tlf.: _ 

Bemærkninger: 


Kuponen sendes til VI & 
VIC, Kornager 29, 7100 
Vejle. 


VIC programmer 


Lad andre få mulighed for at 
købe de programmer, du ud¬ 
vikler til VIC. 

Rubrikannoncer her i bladet 
koster 1 kr. pr. spaltemilli¬ 
meter, og for overskuelighe¬ 
dens skyld bør annoncerne 
bygges op på samme måde, 
som det kan ses her på siden. 
Det vil sige, at annoncetek¬ 


sten skal indeholde oplysnin¬ 
ger om nødvendigt udstyr, 
hvilket medium, progammet 
findes på (kassettebånd, disk 
eller cartridge), prisen - og 
naturligvis oplysninger om, 
hvor man kan købe program¬ 
met. 

Brug kuponen til din annon¬ 
ce. 


VIC program sælges 

Programmets navn:_ 

Beskrivelse: __ 


Hardware:_Medium: 

Pris: _ 

Købes hos: __ 


Kuponen sendes til VI & VIC, Komager29, 7100 Vejle. 
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Ikke så underligt, for ingen andre tilbyder så meget 
computer til så små priser - se godt efter priserne i 
den nærmeste fremtid. 

Commodore computerne er »stærke sager«-seselv: 

COMMODORE 64 

»Rigtigt tastatur«. 

64K RAM indbygget hukommelse. 

8 sprite-planer. 3-D virkning. 

40 karakterer og 25 linier. 

16 tastaturstyrede farver. 

Avanceret Hi-Fi synthesizer. 

Kan kobles til stereo-anlægget. 

VIC 20 

Skrivemaskinetastatur med 8 funktionstaster 
- kan omstilles til grafik og tekst. 

5K RAM - kan udvides til 32K RAM. 

Farver i 255 kombinationer. 

Lyd: 3 tonegeneratorer til musik + 1 lydgenerator. 


Der er mange stærke programmer til både seriøse 
formål og til en masse elektronisk »spøg & skæmt«. 
Og der kommer nye til hver dag. 

Der er en lang række tilslutningsmuligheder og 
tilbehørsprogrammet er helt i top. 

Få dig en »prøvetur« hos din lokale 
Commodore forhandler. 


ft commodore 

v COMPUTER 

- hva’ ellers ! 
















